home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_clk2 / vbclock.bas < prev    next >
BASIC Source File  |  1995-09-06  |  1KB  |  52 lines
  1.  
  2. Function GetInfo (InfType As Integer) As String
  3.     Select Case InfType
  4.         Case 1
  5.             GetInfo = " " + Format$(Now, "MMM d") + " "
  6.         Case 2
  7.             GetInfo = " " + Format$(Now, "h:mm AM/PM") + " "
  8.         Case 3
  9.             GetInfo = " " + Format$(Now, "ddd") + " "
  10.         Case 4
  11.             GetInfo = " " + Format$(Now, "dddd") + " "
  12.         Case 5
  13.             GetInfo = "-"
  14.         Case 6
  15.             GetInfo = ""
  16.         Case 7
  17.             GetInfo = " " + Format$(GetFreeSystemResources%(0) / 100, "00%") + " "
  18.         Case 8
  19.             GetInfo = " " + Format$(GetFreeSpace(0) \ 1024) + " KB" + " "
  20.     End Select
  21. End Function
  22.  
  23. Function Pixels_To_Twips (ByVal N&) As Long
  24.   Pixels_To_Twips = Scale_Twip / Scale_Pixel * N&
  25. End Function
  26.  
  27. Static Function Signed (XNum&) As Integer
  28.     If XNum& > 32767 Then
  29.        Signed = XNum& - 65536
  30.     Else
  31.        Signed = XNum&
  32.     End If
  33. End Function
  34.  
  35. Function TrimZeroTerm$ (s$)
  36.     Dim temp As String
  37.     Dim nullspot As Integer
  38.  
  39.     temp = String$(1, 0)
  40.     nullspot = InStr(s$, temp)
  41.     If nullspot = 0 Then
  42.         TrimZeroTerm = s$
  43.       Else
  44.         TrimZeroTerm = Left$(s$, nullspot - 1)
  45.     End If
  46. End Function
  47.  
  48. Function Twips_To_Pixels (ByVal N&) As Long
  49.   Twips_To_Pixels = Scale_Pixel / Scale_Twip * N&
  50. End Function
  51.  
  52.